<% Dim strMenu,PageTitle,sxcrcwzk sxcrcwzk=0 strMenu = "" PagePath = "../" Set jyrcw = New Site_Class Jyrcw.SiteConfig() Jyrcw.GotoErrPage() Jyrcw.arrMember = Jyrcw.Member_Info() %> <% dim Actsc,scid Actsc = Jyrcw.chgStr(Trim(Request.QueryString("action"))) If Actsc = "shanchu" Then scid = Jyrcw.chgStr(Trim(Request.QueryString("scid"))) Conn.Execute("update jyrcwdxx set jyrcwdxxcomsc = '1' where jyrcwdxxid = "& scid) Response.Redirect("chgcominfo_10.asp") Response.End() end if if MemberBeginDate="" or isnull(MemberBeginDate) or MemberEndDate="" or Isnull(MemberEndDate) or DateDiff("d",now(),MemberEndDate)<0 then MemberType=0 end if %>
  • 短消息
<%if Jyrcw.arrMember(15 , MemberType)=0 then%>
对不起，您没有权限使用该功能，如果需要使用该功能，请升级会员后再使用。
<%else%>
<% FileName="chgcominfo_10.asp?" %>
<% dim CurrentPage,FileName,jyrcwdxxid,jyrcwdxxper,jyrcwdxxcom,jyrcwdxxbt,jyrcwdxxnr,jyrcwdxxsj,jyrcwdxxyd,jyrcwdxxxgrhf set rs=server.createobject("adodb.recordset") sql="select jyrcwdxxid,jyrcwdxxper,jyrcwdxxcom,jyrcwdxxbt,jyrcwdxxnr,jyrcwdxxsj,jyrcwdxxyd,jyrcwdxxxgrhf FROM jyrcwdxx where jyrcwdxxlx = 'sj' and jyrcwdxxqygr='gr' and jyrcwdxxcom='"&Request.Cookies("ComId")&"' and jyrcwdxxcomsc='0' order by jyrcwdxxsj desc" Rs.Open Sql , Conn , 1 , 1 If Rs.Eof Then %> <% Else Rs.PageSize = 10 CurrentPage = Clng(Request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Rs.AbsolutePage = CurrentPage i = 0 Do While Not Rs.Eof jyrcwdxxid=Rs("jyrcwdxxid") jyrcwdxxper=Rs("jyrcwdxxper") jyrcwdxxcom=Rs("jyrcwdxxcom") jyrcwdxxbt=Rs("jyrcwdxxbt") jyrcwdxxnr=Rs("jyrcwdxxnr") jyrcwdxxsj=Rs("jyrcwdxxsj") jyrcwdxxyd=Rs("jyrcwdxxyd") jyrcwdxxxgrhf=Rs("jyrcwdxxxgrhf") %> <% dim Rsqysj_p,jyrcwgrxm,PerPicc Set Rsqysj_p = server.CreateObject("ADODB.recordset") Rsqysj_p.Open "select RealName,PerPic from PersonTbl where PerId ="& jyrcwdxxper , Conn , 1 , 1 If Rsqysj_p.Eof Then ELse jyrcwgrxm=Rsqysj_p("RealName") PerPicc=Rsqysj_p("PerPic") End If Rsqysj_p.Close Set Rsqysj_p=nothing %>
  • <%if jyrcwdxxyd="0" then%><%else%><%end if%>
  • <%if PerPicc="" or isnull(PerPicc) then%><%else%><%end if%>
  • 来自：<%=jyrcwgrxm%>
  • 时间：<%=jyrcw.formatdatee(jyrcwdxxsj,2)%>
  • 标题：<%=left(jyrcwdxxbt,26)%><%if jyrcwdxxyd="0" then%>(未阅读)<%else%><%if jyrcwdxxxgrhf="1" then%>(有新的回复)<%end if%><%end if%>
  • 内容：<%if MemberType=0 then%><%=jyrcw.jyrcwdianhua(jyrcw.jyrcwdianhua(jyrcw.jyrcwwangzhi(jyrcw.jyrcwshouji(left(jyrcw.nohtm(jyrcwdxxnr),33)))))%><%else%><%=left(jyrcw.nohtm(jyrcwdxxnr),33)%><%end if%>……
<% i = i + 1 Rs.MoveNext If i >= Rs.PageSize Then Exit Do Loop %>
      <%Jyrcw.Page_Cnnn CurrentPage , Rs.PageCount , Rs.RecordCount , FileName %>  转到 页
    <% End If Rs.Close Set Rs=nothing %>
    <%end if%>